Amiga Magazin: Amiga-CD 1997 January & February/Amiga-CD 1997 #1-2.iso/cd_einrichten

Text File | 1996-07-19 | 16KB | 447 lines

; $VER: CD einrichten 1.1 © David Göhler (17.05.96)
;
(complete 0)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; NAMING SECTION
;
; first of all I set some vars to file names. This will help me changing
; names easely.
;

(set #EnvDir            "AmigaCD")                      ; Name des ENV-Verzeichnisses

(set #ViewTextEnvName   (cat #EnvDir "/Text_Anzeiger"))  ; Text
(set #ViewImageEnvName  (cat #EnvDir "/Bild_Anzeiger"))  ; Bilder
(set #ViewGuideEnvName  (cat #EnvDir "/Guide_Anzeiger")) ; Guides
(set #ViewHTMLEnvName   (cat #EnvDir "/HTML_Anzeiger"))  ; HTML
(set #PlayModEnvName    (cat #EnvDir "/Mod_Spieler"))    ; Mods spielen
(set #PlaySampleEnvName (cat #EnvDir "/Sample_Spieler")) ; sample spielen
(set #PlayAnimEnvName   (cat #EnvDir "/Anim_Spieler")) ; sample spielen
(set #SchleifenEnvName  (cat #EnvDir "/Schleifen"))      ; Schleifen bei Animationen?

(set #defaultTextTool   ":Tools/most/most")
(set #defaultImageTool  ":Tools/viewtek/vt")
(set #defaultGuideTool  ":C/AmigaGuide")
(set #defaultHTMLTool   ":Tools/AWeb/AWeb")
(set #defaultModTool    ":Tools/DeliTracker/DeliTracker2")
(set #defaultSampleTool ":C/playsound")
(set #defaultAnimTool   ":Tools/MVB_PD/MVBroadCast")
(set #defaultSchleife   "0")

(set #MakeAssign        ":MakeAssign")

(set @default-dest      "") ; wird nirgendwo installiert

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; LANGUAGE SECTION
;
; to support more than only one language, there is a special section for
; each supported language.
;

;(if (<> @language "english")
;  (if (<> @language "deutsch")
;      ( set @language "english")
;  )
;)

;==========================================================================
; English strings

(if (= @language "english")
    (set default_lang 4)
)


;=============================================================================
; German strings

(if (= @language "deutsch")
    (set default_lang 2)
)

;=============================================================================
; make sure we are running under V37

(if (< (/ (getversion) 65536) 37)
    (abort #bad-kick)
)

;=============================================================================
; if something unexpected happens, do this at least

; (onerror (run (cat "delete " #TempDir " QUIET FORCE ALL")))

;******************************************************************
;******************* FULL INSTALL *********************************
;******************************************************************

;=============================================================================
; say hi!

(welcome
   "Dieses Programm hilft Ihnen, ein paar Einstellungen für die "
   "Benutzung der CD vorzunehmen und dauerhaft zu sichern."
)  ; hier kann der Benutzer aussuchen, wie gut er sich fühlt

;(message ("Textanzeige-Variable: %s\n" #ViewTextEnvName)
;         ("Bildanzeige-Variable: %s\n" #ViewImageEnvName)
;         ("Guideanzeige-Variable: %s\n" #ViewGuideEnvName)
;)

;=============================================================================
; what we will do the next time together

(complete 5)

; Benutzer fragen, ob die Einstellungen auch nach dem Booten
; noch gelten sollen?

(set save
       (askbool (prompt  "Sollen die Einstellungen dauerhaft gespeichert werden, damit Sie auch nach einem Reset noch zur Verfügung stehen?")
                (help    "Klicken Sie auf 'Ja', um die Einstellungen in ENVARC: dauerhaft zu speichern\n\nBei 'Nein' gehen Sie nach einem Neustart verloren.")
                (default 1)
                (choices "Ja" "Nein")
       )
)

(complete 10)
;=============================================================================
; Die große Auswahl, was man verändern möchte ...

(set drivermask (askoptions
                    (choices "Text-Anzeiger"
                             "Bild-Anzeiger"
                             "AmigaGuide-Anzeiger"
                             "HTML-Anzeiger"
                             "Mod-Spieler"
                             "Soundsample-Spieler"
                             "Animation-Spieler"
                    )
                    (prompt "Markieren Sie die Anzeige-Programme, für die Sie einen eigenen Anzeiger einstellen möchten.")
                    (help   (cat "Sie können selbst ein Programm wählen, mit denen Bilder, Texte und AmigaGuide-Dateien angezeigt werden sollen."
                                 "\n\nHier haben Sie die Möglichkeit festzulegen, für welche Art sie ein eigenes Programm wählen können."
                                 "\n\nMarkieren Sie die Art, indem Sie vor den jeweiligen Text klicken."
                            )
                    )
                    (default 0)
                )
)

(complete 20)

(if (= (exists (cat "ENV:" #EnvDir) (noreq)) 0)
    ( (makedir (cat "ENV:" #EnvDir))
    )
)
(if (= 1 save)
    (if (= (exists (cat "ENVARC:" #EnvDir) (noreq)) 0)
           (makedir (cat "ENVARC:" #EnvDir))
    )
)

(complete 30)

; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
(if (= (exists (cat "ENV:" #ViewTextEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #ViewTextEnvName))
                (append #defaultTextTool)
    )
)

(if (IN drivermask 0)                       ; Textanzeiger
    (
       (set defaultstr (getenv #ViewTextEnvName))  ; Inhalt der Variablen holen

       (set anzeiger                               ; Eingabe abwickeln
          (askfile (prompt "Welches Programm zum Textanzeigen verwenden:")
                   (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von Texten verwenden wollen.\n\n"
                                "Ab Amiga-OS 3.0 ist 'Sys:Utilities/Multiview' eine gute Wahl.\n\n"
                                @askfile-help
                           )
                   )
                   (default defaultstr)
          )
       )
       (textfile   (dest (cat "ENV:" #ViewTextEnvName))
                   (append anzeiger)
       )
       (if (= 1 save)
           (textfile   (dest (cat "ENVARC:" #ViewTextEnvName))
                       (append anzeiger)
           )
       )
    )
)

(complete 40)

; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
(if (= (exists (cat "ENV:" #ViewImageEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #ViewImageEnvName))
                (append #defaultImageTool)
    )
)

(if (IN drivermask 1)                       ; Bildanzeiger
    (
       (set defaultstr (getenv #ViewImageEnvName)) ; Inhalt der Variablen holen

       (set anzeiger                               ; Eingabe abwickeln
          (askfile (prompt "Welches Programm zum Bilderanzeigen verwenden:")
                   (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von Bildern verwenden wollen.\n\n"
                                "Ab Amiga-OS 3.0 ist 'Sys:Utilities/Multiview' eine gute Wahl.\n\n"
                                @askfile-help
                           )
                   )
                   (default defaultstr)
          )
       )
       (textfile   (dest (cat "ENV:" #ViewImageEnvName))
                   (append anzeiger)
       )
       (if (= 1 save)
           (textfile   (dest (cat "ENVARC:" #ViewImageEnvName))
                       (append anzeiger)
           )
       )
    )
)

(complete 50)

; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
(if (= (exists (cat "ENV:" #ViewGuideEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #ViewGuideEnvName))
                (append #defaultGuideTool)
    )
)

(if (IN drivermask 2)                       ; Guideanzeiger
    (
       (set defaultstr (getenv #ViewGuideEnvName)) ; Inhalt der Variablen holen

       (set anzeiger                               ; Eingabe abwickeln
          (askfile (prompt "Welches Programm zum AmigaGuide-Anzeigen verwenden:")
                   (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von AmigaGuide-Dateien verwenden wollen.\n\n"
                                "Ab Amiga-OS 3.0 ist 'Sys:Utilities/Multiview' eine gute Wahl.\n\n"
                                @askfile-help
                           )
                   )
                   (default defaultstr)
          )
       )
       (textfile   (dest (cat "ENV:" #ViewGuideEnvName))
                   (append anzeiger)
       )
       (if (= 1 save)
           (textfile   (dest (cat "ENVARC:" #ViewGuideEnvName))
                       (append anzeiger)
           )
       )
    )
)

(complete 60)

; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
(if (= (exists (cat "ENV:" #ViewHTMLEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #ViewHTMLEnvName))
                (append #defaultHTMLTool)
    )
)

(if (IN drivermask 3)                       ; HTML-Anzeiger
    (
       (set defaultstr (getenv #ViewHTMLEnvName)) ; Inhalt der Variablen holen

       (set anzeiger                               ; Eingabe abwickeln
          (askfile (prompt "Welches Programm zum HTML-Seiten-Anzeigen verwenden:")
                   (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von HTML-Dateien verwenden wollen.\n\n"
                                "Ab Amiga-OS 3.0 ist 'AWeb' eine gute Wahl.\n\n"
                                @askfile-help
                           )
                   )
                   (default defaultstr)
          )
       )
       (textfile   (dest (cat "ENV:" #ViewHTMLEnvName))
                   (append anzeiger)
       )
       (if (= 1 save)
           (textfile   (dest (cat "ENVARC:" #ViewHTMLEnvName))
                       (append anzeiger)
           )
       )
    )
)

(complete 70)

; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
(if (= (exists (cat "ENV:" #PlayModEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #PlayModEnvName))
                (append #defaultModTool)
    )
)

(if (IN drivermask 4)                       ; Mod-Spieler
    (
       (set defaultstr (getenv #PlayModEnvName)) ; Inhalt der Variablen holen

       (set anzeiger                               ; Eingabe abwickeln
          (askfile (prompt "Welches Programm zum Abspielen von Musik-Mod(ulen) verwenden:")
                   (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Abspielen Mod-Dateien verwenden wollen.\n\n"
                                "Der 'Protracker' ist eine gute Wahl für den Anfang.\n\n"
                                @askfile-help
                           )
                   )
                   (default defaultstr)
          )
       )
       (textfile   (dest (cat "ENV:" #PlayModEnvName))
                   (append anzeiger)
       )
       (if (= 1 save)
           (textfile   (dest (cat "ENVARC:" #PlayModEnvName))
                       (append anzeiger)
           )
       )
    )
)

(complete 80)

; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
(if (= (exists (cat "ENV:" #PlaySampleEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #PlaySampleEnvName))
                (append #defaultSampleTool)
    )
)

(if (IN drivermask 5)                       ; Sample-Spieler
    (
       (set defaultstr (getenv #PlaySampleEnvName)) ; Inhalt der Variablen holen

       (set anzeiger                               ; Eingabe abwickeln
          (askfile (prompt "Welches Programm zum Abspielen von digitalen Sounds verwenden:")
                   (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Abspielen von digitalen Sounds verwenden wollen.\n\n"
                                "Ab Amiga-OS 3.0 ist 'playsound' eine gute Wahl.\n\n"
                                @askfile-help
                           )
                   )
                   (default defaultstr)
          )
       )
       (textfile   (dest (cat "ENV:" #PlaySampleEnvName))
                   (append anzeiger)
       )
       (if (= 1 save)
           (textfile   (dest (cat "ENVARC:" #PlaySampleEnvName))
                       (append anzeiger)
           )
       )
    )
)

(complete 85)

; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
(if (= (exists (cat "ENV:" #PlayAnimEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #PlayAnimEnvName))
                (append #defaultAnimTool)
    )
)

(if (IN drivermask 6)                       ; Anim-Spieler
    (
       (set defaultstr (getenv #PlayAnimEnvName)) ; Inhalt der Variablen holen

       (set anzeiger                               ; Eingabe abwickeln
          (askfile (prompt "Welches Programm zum Abspielen von Animationen im ANIM-Format verwenden:")
                   (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Abspielen von Animationen im ANIM-Format verwenden wollen.\n\n"
                                "Der auf der CD befindliche MainActor BroadCast ist eine gute Wahl.\n\n"
                                @askfile-help
                           )
                   )
                   (default defaultstr)
          )
       )
       (textfile   (dest (cat "ENV:" #PlayAnimEnvName))
                   (append anzeiger)
       )
       (if (= 1 save)
           (textfile   (dest (cat "ENVARC:" #PlayAnimEnvName))
                       (append anzeiger)
           )
       )
    )
)

(complete 90)

;=============================================================================
; Sollen Animationen in einer Schleife abgespielt werden

(set schleife
       (askbool (prompt  "Sollen Animationen (> 7 MByte) bis zum Abbruch per Maustaste immer endlos wiederholt werden?")
                (help    "Wenn eine Animation endlos gespielt wird, muß clariSSA zuerst die gesamte Animation laden, was bei langen Dateien Minuten dauern kann. "
                         "Wenn sie Animationen, die größer als 7 MByte sind, wiederholt abspielen wollen, klicken Sie auf 'Ja'\n"
                         "Sollen nur kleine Animationen (< 7 MByte) wiederholt abgespielt werden, damit sie überhaupt in der kurzen Zeit zu sehen sind), klicken Sie auf 'Nein'"
                )
                (default 0)
                (choices "Ja" "Nein")
       )
)

(if (= (exists (cat "ENV:" #SchleifenEnvName) (noreq)) 0)
    (textfile   (dest (cat "ENV:" #SchleifenEnvName))
                (append #defaultSchleife)
    )
)

(if (= schleife 1)
    (set aus "1")
    (set aus "0")
)

(textfile   (dest (cat "ENV:" #SchleifenEnvName))
            (append aus)
)
(if (= 1 save)
    (textfile   (dest (cat "ENVARC:" #SchleifenEnvName))
            (append aus)
    )
)

;=============================================================================
; Jetzt noch MakeAssign starten, falls noch nicht geschehen

(complete 95)

(if (= (exists (cat "ENV:" #EnvDir "/assign_global") (noreq)) 0)
   (if  (= 1 (askbool
                   (prompt  "Sollen jetzt alle logischen Zuweisungen (Assigns) eingerichtet werden, damit Sie sofort mit der CD arbeiten können?")
                   (help    (cat "Wenn Sie mit 'Ja' antworten, wird das Skript " #MakeAssign " ausgeführt, das alle nötigen "
                            "logischen Zuweisungen (Assigns) anlegt. Sie können anschließend sofort mit allen Programmen der "
                            "CD arbeiten.")
                   )
                   (default 0)
                   (choices "Ja" "Nein")
             )
        )
        (execute #MakeAssign)
   )
)

(complete 100)

(message (cat "Alles Einstellungen wurden Ihren Wünschen entsprechend vorgenommen. "
         "Sie können diese jederzeit mit diesem Programm wieder ändern.\n\n"
         "Wir wünschen viel Spaß mit der CD.\n"
         "\n              Ihre AMIGA-Redaktion")
)